home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / c_text.zip / CLEAR.ASM < prev    next >
Assembly Source File  |  1987-06-16  |  954b  |  35 lines
  1. ;--------------------------------------------------------------------------;
  2. ; Clear(attr) - attr is the attribute for blank lines                      ;
  3. ;--------------------------------------------------------------------------;
  4.  
  5.         ASSUME  CS:_TEXT
  6. _TEXT   SEGMENT BYTE    PUBLIC  'CODE'
  7.         PUBLIC  _CLEAR
  8. _CLEAR     PROC    NEAR
  9.         PUSH    BP
  10.         MOV     BP,SP
  11.         PUSH    DI
  12.         PUSH    SI
  13.         PUSH    DS
  14.         PUSH    ES
  15.  
  16.         MOV     BH,[BP+4]               ;Attribute character
  17.  
  18.         MOV     AH,6                    ;Service 6, Scroll
  19.         XOR     AL,AL                   ;Clear Section
  20.         XOR     CX,CX                   ;Upper left 0,0
  21.         MOV     DX,184Fh                ;Lower right 24,79
  22.         INT     10h
  23.  
  24.         POP     ES
  25.         POP     DS
  26.         POP     SI
  27.         POP     DI
  28.         POP     BP
  29.         RET
  30. _CLEAR ENDP
  31.  
  32. _TEXT   ENDS
  33.         END
  34.  
  35.